home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / utils / ide-fix / cd32.lha / CD32 / Make CD32 Floppy < prev    next >
Text File  |  1997-03-05  |  7KB  |  342 lines
  1. ;$VER: CD32 Install 43.1 (09.02.97)
  2. ;Copyright © 1994 - 1997 Elaborate Bytes, Oliver Kastl
  3.  
  4. (onerror
  5.     (makeassign "CD32Inst" (safe))
  6.     (makeassign "CD32" (safe))
  7. )
  8.  
  9. (set #wbversion (getversion "libs:version.library"))
  10. (set #wbversion (/ #wbversion 65536) )
  11.  
  12. (set #Expansion 1)
  13.  
  14. (complete 0)
  15.  
  16. (if (< #wbversion 39)
  17.     ((abort "\n\nAmigaDOS 3.0 or higher is required for the CD32-Emulator! "
  18.              "\n\nAn upgrade will be needed for your Amiga." )
  19. ))
  20.  
  21.  
  22. (message
  23.     "\n\nThis program will create a Boot Floppy for the CD32-Emulator. "
  24.          "You must have a floppy disk handy and place it in your "
  25.          "internal drive (DF0:)."
  26.          "\n\nThe CacheCDFS MUST be already installed and running! "
  27.          "\n\nThis program MUST NOT be started from the CDFS Install Disk!"
  28.         )
  29.  
  30. (makeassign "CD32Inst" "" (safe))
  31.  
  32. (set #CDDevice_NC "CD0" )
  33.  
  34. (set #CDDevice_NC
  35.     (askstring
  36.         (prompt "\n\nWhat is the name of the CD-ROM device?\n\n"
  37.         "(The trailing colon MUST NOT be present)" 
  38.         )
  39.         (default #CDDevice_NC )
  40.         (help "\n\nThis is the name under which AmigaDOS references the "
  41.                 "CD-Rom as.  While usually "
  42.                 #CDDevice_NC
  43.                 ", it can be any name you choose. "
  44.                 "\n\nThe trailing : (colon) MUST NOT be present." )
  45.     )
  46. )
  47.  
  48.  
  49. (working "\n\nLaunching the FindCD32 program to find "
  50.          "the Device and Unit of your CD-Rom..."
  51.          "\n\nNote that the CacheCDFS MUST be already installed and running!")
  52.  
  53. (if (NOT (exists "CD32Inst:FindCD32"))
  54.     (
  55.     (abort "\n\nCould not find the FindCD32 program!")
  56.     )
  57. )
  58.  
  59. (set #Product ( run (cat "CD32Inst:FindCD32 " #CDDevice_NC) ( safe ) ) )
  60.  
  61. (if ( NOT (= #Product 0) )
  62.     (
  63.     (abort "\nCould not find your CDROM hardware!"
  64.              "\n\nThe CacheCDFS MUST be already installed and running! "
  65.           "\n\nYour CD-Rom MUST be installed as " #CDDevice_NC "!")
  66.     )
  67. )
  68.  
  69.  
  70. ( set #CDROM_Device (getenv "CDROM_Device" ))
  71. ( set #CDROM_FileSystem (getenv "CDROM_FileSystem" ))
  72. ( set #CDROM_Unit (+ (getenv "CDROM_Unit" )))
  73.  
  74. (if (askbool
  75.         (prompt "\n\nDo you want to format the disk in drive DF0: ?")
  76.         (default 1 )
  77.         (help "\n\nChoose \"YES\" to format the disk in drive DF0: "
  78.                 "and \"NO\" if you don't want to format!")
  79.  
  80.     )
  81.     (
  82.  
  83.     (working "\n\nLaunching the WBformat program to create "
  84.          "an empty Disk where the CD32-Emulator will be installed")
  85.  
  86.     ( run "CD32Inst:WBformat DF0:" ) 
  87.     )
  88. )
  89.  
  90. (makeassign "CD32" "DF0:" (safe))
  91.  
  92. (complete 50 )
  93.  
  94. (set @default-dest (getassign "CD32"))
  95.  
  96. (protect "CD32:Devs" "rwed" )
  97. (protect "CD32:Devs.info" "rwed" )
  98. (makedir "CD32:Devs" 
  99.     (infos)
  100. )
  101.  
  102. (if (exists (tackon "DEVS:" #CDROM_Device) )
  103.     ((protect (tackon "CD32:Devs" #CDROM_Device)  )
  104.     (set #Expansion 0)
  105.     (CopyLib
  106.         (source (tackon "DEVS:" #CDROM_Device))
  107.         (dest  "CD32:Devs") 
  108.     ))
  109. )
  110.  
  111. (protect "CD32:Devs/DosDrivers" "rwed"  )
  112. (protect "CD32:Devs/DosDrivers.info" "rwed"  )
  113. (makedir "CD32:Devs/DosDrivers" 
  114.     (infos)
  115. )
  116.  
  117. (protect (tackon "CD32:Devs/DosDrivers" #CDDevice_NC ) "rwed"  )
  118. (protect ( cat (tackon "CD32:Devs/DosDrivers" #CDDevice_NC ) ".info") "rwed"  )
  119.  
  120. (if (exists (tackon "DEVS:DosDrivers" #CDDevice_NC))
  121.     ((copyfiles
  122.         (source (tackon "Devs:DosDrivers" #CDDevice_NC))
  123.         (dest "CD32:Devs/DosDrivers")
  124.         (infos)
  125.     ))
  126. )
  127.  
  128. (if (NOT(exists (tackon "DEVS:DosDrivers" #CDDevice_NC)))
  129.     ((copyfiles
  130.         (source (tackon "SYS:Storage/DosDrivers" #CDDevice_NC))
  131.         (dest "CD32:Devs/DosDrivers")
  132.         (infos)
  133.     ))
  134. )
  135.  
  136. (complete 60 )
  137.  
  138. (protect "CD32:S" "rwed" )
  139. (makedir "CD32:S" )
  140.  
  141. (protect "CD32:Libs" "rwed"  )
  142. (makedir "CD32:Libs" )
  143.  
  144. (protect "CD32:L" "rwed"  )
  145. (makedir "CD32:L" )
  146.  
  147. (protect "CD32:Libs/asl.library" "rwed"  )
  148. (CopyLib
  149.     (source "LIBS:asl.library")
  150.     (dest "CD32:LIBS")
  151. )
  152.  
  153. (if (exists "LIBS:68040.library")
  154.     (
  155.     (protect "CD32:Libs/68040.library" "rwed"  )
  156.     (CopyLib
  157.         (source "LIBS:68040.library")
  158.         (dest "CD32:LIBS")
  159.     ))
  160. )
  161.  
  162. (if (exists "LIBS:idefix.library")
  163.     (
  164.     (protect "CD32:Libs/idefix.library" "rwed"  )
  165.     (CopyLib
  166.         (source "LIBS:idefix.library")
  167.         (dest "CD32:LIBS")
  168.     ))
  169. )
  170.  
  171. (if (exists "LIBS:workbench.library" )
  172.     (
  173.     (protect "CD32:Libs/workbench.library" "rwed"  )
  174.     (CopyLib
  175.         (source "LIBS:workbench.library")
  176.         (dest "CD32:LIBS")
  177.     ))
  178. )
  179.  
  180. (protect (tackon "CD32:" #CDROM_FileSystem) "rwed"  )
  181. (CopyLib
  182.     (source #CDROM_FileSystem)
  183.     (dest "CD32:L")
  184. )
  185.  
  186. (complete 70 )
  187.  
  188. (protect "CD32:C" "rwed"  )
  189. (makedir "CD32:C" 
  190. )
  191.  
  192. (protect "CD32:C/SetPatch" "rwed"  )
  193. (CopyLib
  194.     (source "C:SetPatch")
  195.     (dest "CD32:C")
  196. )
  197.  
  198. (protect "CD32:C/LoadWB" "rwed"  )
  199. (CopyLib
  200.     (source "C:LoadWB")
  201.     (dest "CD32:C")
  202. )
  203.  
  204. (protect "CD32:C/Mount" "rwed"  )
  205. (CopyLib
  206.     (source "C:Mount")
  207.     (dest "CD32:C")
  208. )
  209.  
  210. (protect "CD32:C/Execute" "rwed"  )
  211. (CopyLib
  212.     (source "C:Execute")
  213.     (dest "CD32:C")
  214. )
  215.  
  216.  
  217. (if (exists "CD32Inst:CD32-Demo" )
  218.     (
  219.     (set #CD32_Name "CD32-Demo")
  220.     )
  221. )
  222.  
  223. (if (exists "CD32Inst:TandemCD32" )
  224.     (
  225.     (set #CD32_Name "TandemCD32")
  226.     )
  227. )
  228.  
  229. (if (exists "CD32Inst:CD1200_CD32" )
  230.     (
  231.     (set #CD32_Name "CD1200_CD32")
  232.     )
  233. )
  234.  
  235. (if (exists "CD32Inst:CD32" )
  236.     (
  237.     (set #CD32_Name "CD32")
  238.     )
  239. )
  240.     
  241.  
  242. (complete 80 )
  243.  
  244. (protect (tackon "CD32:" #CD32_Name) "rwed"  )
  245. (CopyLib
  246.     (source (tackon "CD32Inst:" #CD32_Name))
  247.     (dest "CD32:")
  248.     (infos)
  249. )
  250.  
  251. (complete 90 )
  252.  
  253. (protect "CD32:S/Startup-Sequence" "rwed" )
  254.  
  255. (if #Expansion
  256.     (
  257.     (set #Expansion ( NOT (askbool
  258.         (prompt "\n\nIs your CD-Rom controller an Autoboot controller ?")
  259.         (default 0 )
  260.         (help "\n\nChoose \"YES\" if your controller is an autoboot controller "
  261.                 "and \"NO\" if not!")
  262.  
  263.         ))
  264.     ))
  265. )
  266.  
  267. (if #Expansion
  268.     (
  269.     (set #BindDrivers "C:BindDrivers\n")
  270.     )
  271. )
  272.  
  273. (if (NOT #Expansion)
  274.     (
  275.     (set #BindDrivers "")
  276.     )
  277. )
  278.  
  279. (textfile
  280.     (dest "CD32:S/Startup-Sequence" )
  281.     (append ";**********************************************************\n"
  282.               ";*  CD32-Emulator © 1994 - 1997 Elaborate Bytes, O. Kastl *\n"
  283.               ";**********************************************************\n")
  284.     (append "\n")
  285.     (append #BindDrivers)
  286.     (append #CD32_Name)
  287.     (append "\n")
  288. )
  289.  
  290. (if #Expansion
  291.     (
  292.     (protect "CD32:Expansion" "rwed" )
  293.     (protect "CD32:Expansion.info" "rwed"  )
  294.  
  295.     (makedir "CD32:Expansion" 
  296.         (infos)
  297.     )
  298.  
  299.     (protect "CD32:C/BindDrivers" "rwed"  )
  300.     (CopyLib
  301.         (source "C:BindDrivers")
  302.         (dest "CD32:C")
  303.     )
  304.  
  305.     (message
  306.         "\n\nIf your CD-Rom controller is no Autoboot controller, you have to "
  307.          "drag its driver icon from the SYS:Expansion drawer to the Expansion drawer "
  308.          "on the CD32 Emulator disk!" 
  309.         )
  310.     )
  311. )
  312.  
  313. (makedir "CD32:GameStore" 
  314.     (infos)
  315. )
  316.  
  317. (tooltype
  318.     (dest (tackon "CD32:" #CD32_Name) )
  319.     (settooltype "NVPATH" "GameStore" )
  320.     (settooltype "DOSDEV" #CDDevice_NC )
  321.     (noposition)
  322. )
  323.  
  324. ( protect "CD32:S/Startup-Sequence" "-e +s" )
  325.  
  326. ( if (NOT @pretend )
  327. ((if ( run "CD32Inst:PutPrefs CD32: NonLace" )
  328.     (
  329.     (abort "\n\nPutPrefs program failed!")
  330.     ))
  331. ))
  332.  
  333. ( if (NOT @pretend )
  334. (( run "C:Install DF0:" ))
  335. )
  336.  
  337. (complete 100 )
  338.  
  339. (makeassign "CD32" (safe))
  340. (makeassign "CD32Inst" (safe))
  341.  
  342.